99问答网
所有问题
当前搜索:
vb 字符串截取
在文本框中输入一串
字符串
,按ASCII码的顺序由大到小在窗体上打出...
答:
Option Base 1 Private Sub Command1_Click()Dim Str, StrTemp, Rec() As String Dim I, J As Integer Str = Trim(Text1)ReDim Rec(Len(Str))For I = 1 To Len(Str)Rec(I) = Mid(Str, I, 1)Next For I = 1 To UBound(Rec)For J = 1 To UBound(Rec) - I If Asc(Rec(J...
如何用
VB
.NET生成一个随机
字符串
答:
用法 RndString(xx) xx为随机数字长度 比如12位长度的随机
字符串
则为 RndString(12)字符串包含数字和大小写字母,函数如下:Function RndString(ByVal l As Integer) As String Randomize()Dim R, i As Integer Dim S As Char Dim returnStr As String returnStr = ""'a-z 的ASCII码是:97...
求用
VB
.NET或C#.NET写一个类似于MidB的好程序
答:
Substring方法是系统自带的啊 比如 Dim str As String = "123456"MsgBox(str.Substring(1, 2))
VB
编程题目
答:
Private Sub Command1_Click() Text4.Text = Mid(Text1.Text, Val(Text2.Text), Val(Text3.Text) - Val(Text2.Text) + 1)End SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = ""End Sub ...
vb
取数字,也可从后面取倒数第2位取2位数也行
答:
如果是一个字
串
的话:1、直接Val就行了,比如“11日”,在
VB
中Val("11日")的结果就是等于数字的 112、用替换法也是可以的 val(replace("11日","日",""))=11 就是将日替换成空字串,再转换成数字格式 Val(Replace(字串,"日",""))3、用Mid来取 Val(Mid("11日", 1, InStr(...
VB
问题instr和mid函数问题
答:
如果指定了 compare 参数,则一定要有 start 参数。string1必要参数。接受搜索的
字符串
表达式。string2必要参数。被搜索的字符串表达式。Compare可选参数。指定字符串比较。如果 compare 是 Null,将发生错误。如果省略 compare,Option Compare 的设置将决定比较的类型。设置 compare 参数设置为:常数值描述
v
...
vb
.net提取textbox1的最后一行
字符串
答:
Dim p As Integer = InStrRev(s, vbCrLf)'从右侧开始查找出现回车符的位置(但位置仍从左算起)Dim s1 As String'用于保存最后一行
字符串
If p = 0 Then'若未找到回车符,则直接将整个字符串赋给S1 s1 = s Else s1 = Mid(s, p + 2)'若找到回车符,则
截取
回车符右边的部分 End If Msg...
在
VB
中如何对数据进行去零操作,比如000000000158,得到的是158_百度...
答:
也可以用笨方法,写一段代码,对
字符串
从左到右检查字符是不是0,直到不是0的字符,计算出0的个数,然后取右边的字符个数。假设字符串Str1=“00000158”for i=1 to 20 N=right(left(Str1,i),1)if N<>0 then M=i,i=20 next i str1=right(str1,len(str1)-M)...
在
vb
中怎么样用 keybd_event 模拟一
字符串
输入
答:
'这个需要用PostMessage,不能用keybd_event。'看看这两个函数的声明就明白了。Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Sub keybd_event Lib "user...
...trim看得懂。为什么后面加个1呢。。。什么意思(
vb
,oracle)
答:
vb
的语法,left(a,N)是从左边开始取值,取得位数为N位,这里后面的1,就是从左边取一位!trim$()就是
截取字符串
的左右空格 你这个的结果就是从trim$(cmbInput(3).text)中,从左边取一位 Oracle没有这种语法!
棣栭〉
<涓婁竴椤
31
32
33
34
36
37
38
39
40
涓嬩竴椤
灏鹃〉
35
其他人还搜